home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / WWWworkbenchIB.lha / WWWworkbench / W4makedir.ibrx < prev    next >
Encoding:
Text File  |  1998-09-09  |  776 b   |  25 lines
  1. /* $VER: W4makedir.ibrx  1.0
  2. *Made by Andres Pääbo (c)1998 : paabo@bancom.net
  3. */
  4. OPTIONS RESULTS
  5. screen=getclip('screen')
  6.  
  7. ADDRESS 'IBROWSE'
  8. 'QUERY TITLE'
  9. currdir=result
  10.  
  11. ADDRESS COMMAND 'REQUESTFILE > RAM:W4/resultstring   TITLE "APPEND NAME OF DIR TO CREATE & use OK"  NOICONS  DRAWER "'currdir'" DRAWERSONLY PUBSCREEN "'screen'"'
  12. if rc=5 then EXIT
  13. call open('resultstring','Ram:W4/resultstring',R)
  14. resultstring=readln('resultstring')
  15. resultstring=TRANSLATE(resultstring, ' ','"')
  16. resultstring=STRIP(resultstring)
  17. close('resultstring')
  18. len=LENGTH(resultstring)
  19. if RIGHT(resultstring,1)='/' then  resultstring=LEFT(resultstring,len-1)
  20. ADDRESS COMMAND 'MAKEDIR "'resultstring'"'
  21.  
  22. call setclip('refresh', 1)
  23. ADDRESS COMMAND  'Sys:RexxC/RX  WWWworkbench/WWWworkbench.ibrx'
  24. EXIT
  25.